home *** CD-ROM | disk | FTP | other *** search
/ Mixa 155: Dogs / MIXA 155: Dogs.iso / pc / Viewer / BROWSER(W) / フィルタ / PDF / LIB / pdfopt.ps < prev    next >
Encoding:
Text File  |  2002-10-29  |  29.8 KB  |  1,043 lines
  1. %    Copyright (C) 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile: pdfopt.ps,v $ $Revision: 1.1 $
  7. % PDF linearizer ("optimizer").
  8.  
  9. .currentglobal true .setglobal
  10. /pdfoptdict 200 dict def
  11. pdfoptdict begin
  12.  
  13. % This linearizer is designed for simplicity, not for performance.
  14. % See the main program (the last procedure in the file) for comments
  15. % describing the main processing sequence.
  16.  
  17. % ---------------- Utilities ---------------- %
  18.  
  19. % ------ Data structures ------ %
  20.  
  21. % Distinguish dictionaries, arrays, and everything else.
  22. /ifdaelse {        % <obj> <dictproc> <arrayproc> <otherproc> ifdaelse -
  23.   3 index type dup /dicttype eq {
  24.     pop pop pop
  25.   } {
  26.     dup /arraytype ne exch /packedarraytype ne and {
  27.       exch
  28.     } if pop exch pop
  29.   } ifelse exec
  30. } bind def
  31.  
  32. % Implement dynamically growable arrays using a dictionary.
  33. /darray {        % <size> darray <darray>
  34.   dict
  35. } bind def
  36. /dadd {            % <darray> <value> dadd -
  37.   1 index length exch put
  38. } bind def
  39. /daforall {        % <darray> <proc> daforall -
  40.   /exch cvx /get cvx 3 -1 roll /exec cvx 5 packedarray cvx
  41.   0 1 2 index 0 get length 1 sub 4 -1 roll for
  42. } bind def
  43. /dacontents {        % <darray> dacontents <array>
  44.   [ exch { } daforall ]
  45. } bind def
  46. /dacontstring {        % <darray> dacontstring <string>
  47.   0 1 index { exch pop length add } forall string
  48.   dup /NullEncode filter
  49.             % Stack: darray str filter
  50.   3 -1 roll { 1 index exch writestring } daforall
  51.   closefile
  52. } bind def
  53.  
  54. % Force an object, mapping it if it is a reference.
  55. /omforcenew {        % <obj> omforce <obj'> <notseen>
  56.   dup oforce 2 copy eq { pop true } { exch 0 get omapnew exch pop } ifelse
  57. } bind def
  58. /omforce {        % <obj> omforce <obj'>
  59.   omforcenew pop
  60. } bind def
  61. /omget {        % <dict|array> <key> omget <obj>
  62.   get omforce
  63. } bind def
  64. % Visit an entire tree.
  65. /omvisit {        % <obj> omvisit -
  66.   omforcenew {
  67.     { { omvisit omvisit } forall }
  68.     { { omvisit } forall }
  69.     { pop }
  70.     ifdaelse
  71.   } {
  72.     pop
  73.   } ifelse
  74. } bind def
  75.  
  76. % Collect the list of currently mapped object numbers, in order.
  77. /omapped {        % - omapped <obj#s>
  78.   RMap length array RMap {
  79.     2 index 3 1 roll 1 sub exch put
  80.   } forall
  81. } bind def
  82.  
  83. % Collect the list of object numbers passed to omap by a procedure.
  84. /visited {        % <proc> visited <obj#s>
  85.   false currentomap 2 .execn
  86.   omapped exch setomap
  87. } bind def
  88.  
  89. % ------ Output ------ %
  90.  
  91. % Provide a framework for closure-based streams.
  92. .currentglobal false .setglobal
  93. userdict /clostreams 20 dict put    % stream -> [data endproc]
  94. .setglobal
  95. % Create a closure-based stream.
  96. /clostream {        % <data> <proc> <endproc> clostream <stream>
  97.   2 index 3 -1 roll /exec load 3 packedarray cvx
  98.   /NullEncode filter
  99.         % Stack: data endproc stream
  100.   clostreams 1 index 5 -2 roll 2 array astore put
  101. } bind def
  102. % Close a closure-based stream.
  103. /closend {        % <stream> closend <result>
  104.   dup closefile clostreams exch
  105.   2 copy get 3 1 roll undef aload pop exec
  106. } bind def
  107.  
  108. % Implement in-memory output streams.
  109. /msproc {        % <data> <more> <accum> msproc <scratch>
  110.   3 -1 roll dadd { 100 string } { () } ifelse
  111. } bind def
  112. /mstream {        % - mstream <mstream>
  113.   10 darray {msproc} {dacontstring} clostream
  114. } bind def
  115. /mcontents {        % <mstream> mcontents <string>
  116.   closend
  117. } bind def
  118.  
  119. % Implement a stream that only keeps track of its position.
  120. % (All streams should do this, but the PLRM doesn't require it.)
  121. /posbuf 100 string def
  122. /posproc {        % <data> <more> <accum> posproc <scratch>
  123.   0 2 copy get 5 -1 roll length add put
  124.   pop //posbuf
  125. } bind def
  126. /postream {        % - postream <postream>
  127.   [0] {posproc} {0 get} clostream
  128. } bind def
  129. /poslength {        % <postream> poslength <pos>
  130.   closend
  131. } bind def
  132.  
  133. % Implement streams with variable-bit-width data.
  134. % Note that these are dictionary objects, not stream objects.
  135. /bitstream {        % <stream> bitstream <bstream>
  136.   4 dict begin /S exch def /N 8 def /B 0 def
  137.   currentdict end
  138. } bind def
  139. /bitwrite {        % <bstream> <value> <width> bitwrite -
  140.   PDEBUG { ( ) print 1 index =only (:) print dup = } if
  141.   3 -1 roll begin
  142.   N exch sub dup 0 ge {
  143.     /N exch def N bitshift B add
  144.   } {
  145.     2 copy bitshift B add S exch write
  146.             % Stack: value -left
  147.     { 8 add dup 0 ge { exit } if
  148.       2 copy bitshift 255 and S exch write
  149.     } loop
  150.     /N 1 index def bitshift 255 and
  151.   } ifelse /B exch def
  152.   end
  153. } bind def
  154. /bitflush {        % <bstream> bitflush -
  155.   begin N 8 ne { S B write /B 0 def /N 8 def } if end
  156. } bind def
  157.  
  158. % Capture OFile output on the temporary file, in memory, or just as a length.
  159. /totemp {        % <proc> totemp <start> <end>
  160.   TFile fileposition OFile
  161.   /OFile TFile def 3 .execn
  162.   /OFile exch def
  163.   TFile fileposition
  164. } bind def
  165. /tomemory {        % <proc> tomemory <string>
  166.   OFile /OFile mstream def 2 .execn
  167.   OFile mcontents exch /OFile exch def
  168. } bind def
  169. /tolength {        % <proc> tolength <string>
  170.   OFile /OFile postream def 2 .execn
  171.   OFile poslength exch /OFile exch def
  172. } bind def
  173.  
  174. % Copy a range of bytes from TFile to OFile.
  175. /copyrange {        % <start> <end> copybytes -
  176.   TFile 2 index setfileposition
  177.   exch sub 1024 string exch {
  178.         % Stack: buf left
  179.     2 copy 1 index length .min 0 exch getinterval
  180.     TFile exch readstring pop OFile exch writestring
  181.     1 index length sub dup 0 le { exit } if
  182.   } loop pop pop
  183. } bind def
  184.  
  185. % Pad with blanks to a specified position.
  186. /padto {        % <pos> padto -
  187.   OFile fileposition sub
  188.   dup 0 lt {
  189.     (ERROR: file position incorrect by ) print =
  190.     /padto cvx /rangecheck signalerror
  191.   } {
  192.     { ( ) ows } repeat
  193.   } ifelse
  194. } bind def
  195.  
  196. % ---------------- Read objects into memory ---------------- %
  197.  
  198. /touch {        % <object> touch -
  199.   {
  200.     { touch touch } forall
  201.   } {
  202.     dup xcheck {
  203.         % Executable array, must be an indirect object.
  204.       dup 0 get resolved? { pop pop } { oforce touch } ifelse
  205.     } {
  206.       { touch } forall
  207.     } ifelse
  208.   } {
  209.     pop
  210.   } ifdaelse
  211. } bind def
  212.  
  213. % ---------------- Replace references with referents ---------------- %
  214.  
  215. /replaceable? {        % <value> replaceable? <bool>
  216.   dup type /integertype eq exch xcheck not and
  217. } bind def
  218. /replacement {        % <obj|ref> replacement <obj'>
  219.   dup oforce dup replaceable? { exch } if pop
  220. } bind def
  221.  
  222. /replacerefs {        % <object> replacerefs <object>
  223.   {
  224.     dup {
  225.       2 index 2 index undef
  226.       exch replacement exch replacement
  227.       2 index 3 1 roll put
  228.     } forall
  229.   } {
  230.     0 1 2 index length 1 sub {
  231.       1 index exch 2 copy get replacement put
  232.     } for
  233.   } {
  234.   } ifdaelse
  235. } bind def
  236.  
  237. /replaceReferences {    % - replaceReferences -
  238.   Objects { replacerefs pop } lforall
  239.         % Delete replaced objects.
  240.   0 1 Objects llength 1 sub {
  241.     Objects 1 index lget replaceable? {
  242.       PDEBUG { (Deleting ) print dup = } if
  243.       Generations 1 index 0 lput
  244.     } if pop
  245.   } for
  246. } bind def
  247.  
  248. % ---------------- Create new objects ---------------- %
  249.  
  250. /createObjects {    % [<obj>...] createObjects <firstobj#>
  251.   Objects llength dup
  252.   dup 3 index length add growPDFobjects
  253.         % Stack: objects objn objn
  254.   3 1 roll exch {
  255.     Objects 2 index 3 -1 roll lput
  256.     Generations 1 index 1 lput
  257.     1 add
  258.   } forall pop
  259. } bind def
  260.  
  261. % ---------------- Propagate attributes ---------------- %
  262.  
  263. /nopropattrs <<
  264.     % Never propagate these.
  265.   /Type dup /Kids dup /Count dup /Parent dup
  266.     % Handle Resources specially.
  267.   /Resources dup
  268. >> def
  269.  
  270. % Merge Resources.
  271. /mergeres {        % <fromdict> <todict> mergeres -
  272.         % Values in todict take priority over fromdict.
  273.   1 index /Resources .knownget {
  274.     1 index /Resources .knownget {
  275.         % Stack: fromdict todict fromres tores
  276.       exch oforce exch oforce
  277.         % todict's Resources may be shared, so make a copy.
  278.       dup length dict .copydict
  279.       exch {
  280.         % Stack: fromdict todict tores' fromkey fromvalue
  281.     2 index 2 index knownoget {
  282.         % Stack: fromdict todict tores' fromkey fromvalue tovalue
  283.       exch oforce exch
  284.         % ProcSet is an array, other types are dictionaries.
  285.       dup type /dicttype eq {
  286.         % Dictionary, not ProcSet.
  287.         exch dup length 2 index length add dict .copydict .copydict
  288.       } {
  289.         % Array or packed array, ProcSet.
  290.         % Use dictionaries to do the merge.
  291.         dup length 2 index length add dict begin
  292.         exch { dup def } forall { dup def } forall
  293.         mark currentdict end { pop } forall .packtomark
  294.       } ifelse
  295.     } if
  296.     2 index 3 1 roll put
  297.       } forall
  298.     } if /Resources exch put pop
  299.   } {
  300.     pop pop
  301.   } ifelse
  302. } bind def
  303.  
  304. % Merge attributes other than Resources.
  305. /mergeattrs {        % <fromdict> <todict> mergeattrs <fromdict> <todict>
  306.         % Values in todict take priority over fromdict.
  307.   1 index {
  308.         % Stack: fromdict todict fromkey fromvalue
  309.     //nopropattrs 2 index known {
  310.       pop pop
  311.     } {
  312.       2 index 2 index known { pop pop } { 2 index 3 1 roll put } ifelse
  313.     } ifelse
  314.   } forall
  315. } bind def
  316.  
  317. % Propagate attributes to a subtree.
  318. /proppage {        % <attrs> <subtree> proppage -
  319.         % We should be able to tell when we reach a leaf
  320.         % by finding a Type unequal to /Pages.  Unfortunately,
  321.         % some files distributed by Adobe lack the Type key
  322.         % in some of the Pages nodes!  Instead, we check for Kids.
  323.   dup /Kids knownoget {
  324.         % Accumulate inherited values.
  325.     3 1 roll
  326.         % Stack: kids attrs pagesnode
  327.     dup length dict .copydict mergeattrs
  328.     dup 3 1 roll mergeres
  329.     exch { oforce 1 index exch proppage } forall pop
  330.   } {
  331.         % Merge inherited values into the leaf.
  332.     mergeattrs mergeres
  333.   } ifelse
  334. } bind def
  335.  
  336. % Propagate attributes to all pages.
  337. /propagateAttributes {    % - propagateAttributes -
  338.   0 dict Trailer /Root oget /Pages oget proppage
  339. } bind def
  340.  
  341. % ---------------- Identify document-level objects ---------------- %
  342.  
  343. /identifyDocumentObjects {    % - identifyDocumentObjects <obj#s>
  344.   {
  345.     Trailer /Root omget
  346.     dup /PageMode .knownget { omvisit } if
  347.     dup /OpenAction .knownget { omvisit } if
  348.     Trailer /Encrypt .knownget { omvisit } if
  349.     dup /Threads .knownget {
  350.       omforce { omforce } forall
  351.     } if
  352.     dup /AcroForm .knownget { omvisit } if
  353.     pop
  354.   } visited
  355. } bind def
  356.  
  357. % ---------------- Identify the objects of each page ---------------- %
  358.  
  359. /identifyfont {        % <fontref> identifyfont -
  360.   omforce {
  361.     exch /FontDescriptor eq {
  362.       omforce dup /Flags .knownget { 32 and 0 ne } { false } ifelse
  363.       exch {
  364.     exch dup dup /FontFile eq exch /FontFile2 eq or
  365.     exch /FontFile3 eq or 2 index and {
  366.       fontfiles exch dadd
  367.     } {
  368.       omvisit
  369.     } ifelse
  370.       } forall pop
  371.     } {
  372.       omvisit
  373.     } ifelse
  374.   } forall
  375. } bind def
  376.  
  377. /identifyPageObjects {    % <extra> <page#> identifyPageObjects <obj#s>
  378.   pdffindpageref
  379.   4 dict begin
  380.   /images 10 darray def
  381.   /fontfiles 10 darray def
  382.   {
  383.     omforce
  384.         % Stack: extra page
  385.         % Visit any extra objects if applicable.
  386.     exch omvisit
  387.         % Visit Annots, if any.
  388.         % We don't try to defer the drawing information.
  389.     dup /Annots .knownget { omvisit } if
  390.         % Visit beads.
  391.     dup /B .knownget { omvisit } if
  392.         % Visit resources dictionaries.
  393.     dup /Resources .knownget {
  394.       omforce dup {
  395.         % Visit the first-level Resource dictionaries.
  396.     omforce pop pop
  397.       } forall {
  398.         % Visit the resources themselves.
  399.         % Skip Image XObjects, and FontFile streams if the
  400.         % FontDescriptor Flags have bit 6 set.
  401.         % We don't try to visit the resources in the order in which
  402.         % the Contents stream(s) reference(s) them.
  403.     exch dup /XObject eq {
  404.       pop oforce {
  405.         dup oforce /Subtype get /Image eq {
  406.           images exch dadd
  407.         } {
  408.           omvisit
  409.         } ifelse pop
  410.       } forall
  411.     } {
  412.       /Font eq {
  413.         oforce { identifyfont pop } forall
  414.       } {
  415.         oforce omvisit
  416.       } ifelse
  417.     } ifelse
  418.       } forall
  419.     } if
  420.         % Visit the Contents stream(s).
  421.     dup /Contents .knownget { omvisit } if
  422.         % Visit Image XObjects.  We don't try to visit them in
  423.         % reference order.
  424.     images { omvisit } daforall
  425.         % Visit FontFile streams.  We don't try to visit them in
  426.         % reference order.
  427.     fontfiles { omvisit } daforall
  428.     pop
  429.   } visited end
  430. } bind def
  431.  
  432. % Identify the objects of the first page.
  433. /identifyFirstPageObjects {    % -identifyFirstPageObjects <obj#s>
  434.   Trailer /Root oget null
  435.   1 index /PageMode knownoget {
  436.     /UseOutlines eq {
  437.       pop dup /Outlines get
  438.     } if
  439.   } if exch pop
  440.   1 identifyPageObjects
  441. } bind def
  442.  
  443. % Identify the non-shared objects of the other pages, and the shared objects.
  444. /identifyOtherPageObjects {    % - identifyOtherPageObjects [<pageobj#s> ...]
  445.                 %   <sharedobj#s>
  446.   4 dict begin
  447.   /marks lstring Objects llength lgrowto def
  448.         % Mark document-level and first page objectsw.
  449.   [CatalogNs FirstPageNs] {
  450.     { marks exch 255 lput } forall
  451.   } forall
  452.         % Collect objects of other pages and identify sharing.
  453.   [ 2 1 pdfpagecount { null exch identifyPageObjects } for ]
  454.   dup {
  455.     { marks exch 2 copy lget 1 add 254 min lput } forall
  456.   } forall
  457.   [ exch {
  458.     [ exch {
  459.       marks 1 index lget 1 ne { pop } if
  460.     } forall ]
  461.   } forall ]
  462.   [ 1 1 marks llength 1 sub {
  463.     marks 1 index lget dup 1 le exch 255 eq or { pop } if
  464.   } for ]
  465.   end
  466. } bind def
  467.  
  468. % Identify objects not associated with any page.
  469. /identifyNonPageObjects {    % - identifyNonPageObjects <obj#s>
  470.   4 dict begin
  471.   /marks lstring Objects llength lgrowto def
  472.   [[[LPDictN PHSN] CatalogNs FirstPageNs SharedNs] OtherPageNs] {
  473.     { { marks exch 1 lput } forall } forall
  474.   } forall
  475.     %****** PUT THESE IN A REASONABLE ORDER ******
  476.   [ 1 1 Objects llength 1 sub {
  477.     marks 1 index lget 0 eq {
  478.       Generations 1 index lget 0 eq { pop } if
  479.     } {
  480.       pop
  481.     } ifelse
  482.   } for ]
  483. } bind def
  484.  
  485. % ---------------- Assign object numbers ---------------- %
  486.  
  487. % Assign object numbers to all objects that will be copied.
  488. % Return the first (translated) object number in the First Page xref table.
  489. /assignObjectNumbers {        % - assignObjectNumbers -
  490.   OtherPageNs { { omap pop } forall } forall
  491.   SharedNs { omap pop } forall
  492.   NonPageNs { omap pop } forall
  493.         % Assign object numbers for the First Page xref table last.
  494.   LPDictN omap    % don't pop, this is the return value
  495.   CatalogNs { omap pop } forall
  496.   FirstPageNs { omap pop } forall
  497.   PHSN omap pop
  498. } bind def
  499.  
  500. % ---------------- Create the LPDict ---------------- %
  501.  
  502. % Create the contents of the LPDict.  Free variables:
  503. %   PHSStart PHSEnd FirstPageEnd Xref0Start FileEnd
  504. /createLPDict {            % <phsstart> <phsend> <firstpageend>
  505.                 %   <xref0start> <filelength> createLPDict -
  506.   LPDict
  507.   dup /Linearized 1 put
  508.   dup /L 4 -1 roll put
  509.   dup /T 4 -1 roll put
  510.   dup /E 4 -1 roll put
  511.   dup /H 5 -2 roll 1 index sub 2 array astore put
  512.   dup /O 1 pdffindpageref 0 get omap put
  513.   /N pdfpagecount put
  514. } bind def
  515.  
  516. % ---------------- Adjust object positions ---------------- %
  517.  
  518. /adjustObjectPositions {    % <boundary> <deltabelow> <deltaabove>
  519.                 %   adjustObjectPositions -
  520.     % Objects fall into 4 categories: LPDict, PHS, Catalog, and others.
  521.     % We handle the first two as special cases.
  522.   XRef {
  523.         % Stack: bdy below above key loc
  524.     dup 5 index ge { 2 } { 3 } ifelse index add
  525.     XRef 3 1 roll put
  526.   } forall pop pop pop
  527.   XRef LPDictN omap HeaderLength put
  528.   XRef PHSN omap PHSStart put
  529. } bind def
  530.  
  531. % ---------------- Write the output file ---------------- %
  532.  
  533. % Write objects identified by object number.
  534. /writeobjn {        % <obj#> writeobjn
  535.   Generations 1 index lget pdfwriteobj
  536. } bind def
  537. /writeobjns {        % <obj#s> writeobjns -
  538.   { writeobjn } forall
  539. } bind def
  540.  
  541. % Write the header.
  542. /writePart1 {        % - writePart1 -
  543.   pdfwriteheader
  544. } bind def
  545.  
  546. % Write the linearization parameters dictionary.
  547. /writePart2 {        % - writePart2 -
  548.   LPDictN writeobjn
  549. } bind def
  550.  
  551. % Write the First Page xref table and trailer.
  552. % Free variables: FirstPageXN.
  553. /writePart3 {        % <xrefstart> writePart3 -
  554.   FirstPageXN NObjects 1 add 1 index sub pdfwritexref
  555.   Trailer dup length 1 add dict copy
  556.   dup /Size NObjects 1 add put
  557.   dup /Prev 4 -1 roll put
  558.   pdfwritetrailer
  559.   0 pdfwritestartxref
  560. } bind def
  561.  
  562. % Write the Catalog and other required document-level objects.
  563. % Free variables: CatalogNs.
  564. /writePart4 {        % - writePart4 -
  565.   CatalogNs writeobjns
  566. } bind def
  567.  
  568. % Write the Primary Hint Stream.
  569. /writePart5 {        % - writePart5 -
  570.   PHSN writeobjn
  571. } bind def
  572.  
  573. % Write the First Page's objects.
  574. % Free variables: FirstPageNs.
  575. /writePart6 {        % - writePart6 -
  576.   FirstPageNs writeobjns
  577. } bind def
  578.  
  579. % Write the objects of other pages (Page + non-shared objects).
  580. % Free variables: OtherPageNs.
  581. /writePart7 {        % - writePart7 <lengths>
  582.   [ OtherPageNs {
  583.     OFile fileposition exch
  584.     writeobjns OFile fileposition exch sub
  585.   } forall ]
  586. } bind def
  587.  
  588. % Write the shared objects of other pages.
  589. % Free variables: SharedNs.
  590. /writePart8 {        % - writePart8 -
  591.   SharedNs writeobjns
  592. } bind def
  593.  
  594. % Write the other objects not associated with pages.
  595. % Free variables: NonPageNs.
  596. /writePart9 {        % - writePart9 -
  597.   NonPageNs writeobjns
  598. } bind def
  599.  
  600. % Write the main xref table and trailer.
  601. % Free variables: FirstPageXN.
  602. /writePart11xref {    % writePart11 -
  603.   0 FirstPageXN pdfwritexref
  604. } bind def
  605. /writePart11rest {    % <part3start> writePart11rest -
  606.   << /Size FirstPageXN >> pdfwritetrailer
  607.   pdfwritestartxref
  608. } bind def
  609.  
  610. % ---------------- Write hint tables ---------------- %
  611.  
  612. /bitsneeded {        % <maxvalue> bitsneeded <#bits>
  613.   0 exch { dup 0 eq { pop exit } if exch 1 add exch 2 idiv } loop
  614. } bind def
  615.  
  616. % Find the start and end of objects in the output.
  617. /omstart {        % <obj#> omstart <pos>
  618.   PDEBUG { (start\() print dup =only } if
  619.   omap XRef exch get
  620.   PDEBUG { (\)=) print dup = } if
  621. } bind def
  622. /omend {        % <obj#> omend <pos>
  623.     % The end of an object is the start of the next object.
  624.     % The caller must be sure that this object is not the last one
  625.     % in part 9.
  626.   PDEBUG { (end\() print dup =only } if
  627.   omap 1 add
  628.     % Check that the requested object wasn't the last one in part 6:
  629.     % the next object in the output file is the first in part 7.
  630.   PHSN omap 1 index eq { pop 1 } if
  631.   XRef exch get
  632.   PDEBUG { (\)=) print dup = } if
  633. } bind def
  634. /omlength {        % <obj#> omlength <length>
  635.   dup omend exch omstart sub
  636. } bind def
  637.  
  638. % Find the Contents of a page.
  639. /contentsobjects {    % <pagedict> contentsobjects <firstobj#> <lastobj#>
  640.   /Contents get
  641.   dup oforce dup type /dicttype eq {
  642.     pop dup
  643.   } {
  644.     dup 0 get exch dup length 1 sub get
  645.   } ifelse
  646.   exch 0 get exch 0 get
  647. } bind def
  648. /contentsstart {    % <pagedict> contentsstart <pos>
  649.   contentsobjects pop omstart
  650. } bind def
  651. /contentslength {    % <pagedict> contentslength <length>
  652.   contentsobjects omend exch omstart sub
  653. } bind def
  654.  
  655.  
  656. /writePageOffsetHints {
  657.   PDEBUG { /writePageOffsetHints == } if
  658.   20 dict begin
  659.   /bits OFile bitstream def
  660.   /bwn { bits 3 1 roll bitwrite } def
  661.  
  662.         % Least number of objects in a page:
  663.   FirstPageNs length OtherPageNs { length .min } forall
  664.   /minnop 1 index def 32 bwn
  665.         % Location of first page's Page object:
  666.   FirstPageNs 0 get omap XRef exch get 32 bwn
  667.         % Bits needed to represent greatest # of objects in a page:
  668.   FirstPageNs length OtherPageNs { length .max } forall
  669.   minnop sub bitsneeded /maxnopbits 1 index def 16 bwn
  670.         % Least length of a page:
  671.   FirstPageLength OtherPageLengths { .min } forall
  672.   /minpl 1 index def 32 bwn
  673.         % Bits needed to represent the greatest page length:
  674.   FirstPageLength OtherPageLengths { .max } forall
  675.   minpl sub bitsneeded /maxplbits 1 index def 16 bwn
  676.         % Least start of Contents offset:
  677.   0        % (Acrobat requires that this be 0.)
  678.   /minsco 1 index def 32 bwn
  679.         % Bits needed to represent the greatest start of Contents
  680.         % offset:
  681.   0        % (Acrobat requires that this be 0?!)
  682.   /maxscobits 1 index def 16 bwn
  683.         % Least contents length:
  684.   FirstPageNs 0 get Objects exch lget contentslength
  685.   OtherPageNs { 0 get Objects exch lget contentslength .min } forall
  686.   /mincl 1 index def 32 bwn
  687.         % Bits needed to represent the greatest Contents length:
  688.   FirstPageNs 0 get Objects exch lget contentslength
  689.   OtherPageNs { 0 get Objects exch lget contentslength .max } forall
  690.   mincl sub bitsneeded
  691.   /maxclbits 1 index def 16 bwn
  692.         % Bits needed to represent the greatest number of Shared
  693.   0        % Object references (we don't report any):
  694.   /maxsorbits 1 index def 16 bwn
  695.         % Bits needed to identify a Shared Object (we don't
  696.   0        % report any):
  697.   /sobits 1 index def 16 bwn
  698.         % Bits needed to represent numerator of fraction (only needed
  699.   0        % for Shared Object references, which we don't report):
  700.   /numfbits 1 index def 16 bwn
  701.         % Denominator of fraction (only needed for Shared Object
  702.         % references, which we don't report):
  703.   255    % arbitrary
  704.   /denf 1 index def 16 bwn
  705.  
  706.         % Number of objects in pages:
  707.   FirstPageNs length minnop sub maxnopbits bwn
  708.   OtherPageNs {
  709.     length minnop sub maxnopbits bwn
  710.   } forall
  711.  
  712.         % Total length of pages in bytes;
  713.   FirstPageLength minpl sub maxplbits bwn
  714.   OtherPageLengths {
  715.     minpl sub maxplbits bwn
  716.   } forall
  717.  
  718.         % Number of shared objects referenced from page:
  719.         % (Currently we don't report this.)
  720.   OtherPageNs length 1 add { 0 maxsorbits bwn } repeat
  721.  
  722.         % Since there are no shared object references,
  723.         % the next two sections are empty.
  724.  
  725.         % Contents offsets:
  726.   [FirstPageNs OtherPageNs aload pop] {
  727.     0 get Objects exch lget contentsstart minsco sub maxscobits bwn
  728.   } forall
  729.  
  730.         % Contents lengths:
  731.   [FirstPageNs OtherPageNs aload pop] {
  732.     0 get Objects exch lget contentslength mincl sub maxclbits bwn
  733.   } forall
  734.  
  735.   bits bitflush end
  736. } bind def
  737.  
  738. /writeSharedObjectHints {
  739.   PDEBUG { /writeSharedObjectHints == } if
  740.   20 dict begin
  741.   /bits OFile bitstream def
  742.   /bwn { bits 3 1 roll bitwrite } def
  743.  
  744.         % Currently we use the Shared Object hint table only for
  745.         % the objects in the first page, which are all treated as
  746.         % "shared" objects.
  747.  
  748.         % Object number of first object in Shared Objects section
  749.         % (not currently used):
  750.   0 32 bwn
  751.         % Location of first object in Shared Objects section
  752.         % (not currently used):
  753.         % **** Acrobat always sets this to 16.
  754.   16 32 bwn
  755.         % Number of Shared Object entries for first page:
  756.   FirstPageNs length 32 bwn
  757.         % Number of Shared Object entries for Shared Objects
  758.         % section (not currently used):
  759.         % **** Acrobat adds in the previous value.
  760.   FirstPageNs length 32 bwn
  761.         % Bits needed to represent the greatest number of objects
  762.         % in a shared object group (always 0, because all groups
  763.         % have only 1 object):
  764.   0 16 bwn
  765.         % Least length of a Shared Object Group in bytes:
  766.   16#7fffffff FirstPageNs { omlength .min } forall
  767.   /minsol 1 index def 32 bwn
  768.         % Bits needed to represent the greatest length of a
  769.         % Shared Object Group:
  770.   0 FirstPageNs { omlength .max } forall
  771.   minsol sub bitsneeded
  772.   /maxsolbits 1 index def 16 bwn
  773.  
  774.         % Lengths of shared object groups:
  775.   FirstPageNs { omlength minsol sub maxsolbits bwn } forall
  776.  
  777.         % MD5 flag:
  778.   0 1 bwn
  779.  
  780.   bits bitflush end
  781. } bind def
  782.  
  783. % ---------------- Main program ---------------- %
  784.  
  785. /tmpprefix (/tmp/) def
  786.  
  787. /pdfOptimize {        % <infile> <outfile> pdfOptimize -
  788.   realtime 3 1 roll
  789.   exch pdfdict begin pdfopenfile dup begin
  790.   40 dict begin
  791.   /IDict exch def
  792.   /OFile exch def
  793.   /starttime exch def
  794.   /now {
  795.     QUIET { pop } { print (, t = ) print realtime starttime sub = flush } ifelse
  796.   } def
  797.   omapinit
  798.   
  799.     % Create and open a temporary file.
  800.  
  801.   { tmpprefix realtime abs =string cvs concatstrings
  802.     mark 1 index status {
  803.       cleartomark pop
  804.     } {
  805.       pop exit
  806.     } ifelse
  807.   } loop
  808.   /TFileName 1 index def
  809.   (w) file /TFile exch def
  810.  
  811.     % Read all objects into memory.
  812.  
  813.   Trailer touch
  814.   (Read objects) now
  815.  
  816.     % Replace indirect references to numbers.  This is needed
  817.     % for the Length of streams, and doesn't hurt anything else.
  818.  
  819.   replaceReferences
  820.   (Replaced references) now
  821.  
  822.     % Create the two new objects: the linearization parameter
  823.     % dictionary, and the Primary Hint Stream.
  824.  
  825.   /LPDict 10 dict def
  826.   /PHS 10 dict cvx def        % executable = stream
  827.   [LPDict PHS] createObjects
  828.   /LPDictN 1 index def 1 add
  829.   /PHSN exch def
  830.  
  831.     % Count the number of objects in the output.
  832.  
  833.   0 0 1 Objects llength 1 sub {
  834.     Generations exch lget 0 ne { 1 add } if
  835.   } for
  836.   /NObjects exch def
  837.   QUIET not { NObjects =only ( objects total) = flush } if
  838.  
  839.     % Propagate inherited attributes down the page tree.
  840.  
  841.   propagateAttributes
  842.   (Propagated attributes) now
  843.  
  844.     % Identify the document-level objects (part 4).
  845.  
  846.   identifyDocumentObjects /CatalogNs exch def
  847.   QUIET not { CatalogNs === flush } if
  848.   (Identified Catalog) now
  849.  
  850.       % Identify the first page's objects (part 6),
  851.     % including the Outlines tree if appropriate.
  852.  
  853.   pdfopencache
  854.   /FirstPageNs identifyFirstPageObjects def
  855.   QUIET not { FirstPageNs === flush } if
  856.   (Identified first page) now
  857.  
  858.     % Identify shared vs. non-shared objects for remaining pages
  859.     % (parts 7 and 8).
  860.  
  861.   identifyOtherPageObjects
  862.   /SharedNs exch def
  863.   /OtherPageNs exch def
  864.   QUIET not { OtherPageNs === flush SharedNs === flush } if
  865.   (Identified other pages) now
  866.  
  867.     % Identify objects not associated with any page (part 9).
  868.  
  869.   /NonPageNs identifyNonPageObjects def
  870.   QUIET not { NonPageNs === flush } if
  871.   (Identified non-pages) now
  872.  
  873.     % Assign final object numbers to all the objects.
  874.     % (The omap is currently empty.)
  875.  
  876.   /FirstPageXN assignObjectNumbers def
  877.   (Assigned objects #s) now
  878.  
  879.     % Write the document-level objects (part 4).
  880.  
  881.   { writePart4 } totemp
  882.   /CatalogTempEnd exch def /CatalogTempStart exch def
  883.   (Wrote Catalog) now
  884.  
  885.     % Write the first page's objects (part 6).
  886.  
  887.   { writePart6 } totemp
  888.   /FirstPageTempEnd exch def /FirstPageTempStart exch def
  889.   (Wrote first page) now
  890.  
  891.     % Write the non-shared objects for other pages (part 7).
  892.  
  893.   { writePart7 /OtherPageLengths exch def } totemp
  894.   /OtherPageTempEnd exch def /OtherPageTempStart exch def
  895.   (Wrote other pages) now
  896.  
  897.     % Write the shared objects for other pages (part 8).
  898.  
  899.   { writePart8 } totemp
  900.   /SharedTempEnd exch def /SharedTempStart exch def
  901.   (Wrote shared objects) now
  902.  
  903.     % Write the objects not associated with pages (part 9).
  904.  
  905.   { writePart9 } totemp
  906.   /NonPageTempEnd exch def /NonPageTempStart exch def
  907.  
  908.     % Compute conservative lengths of parts 2,3,5,11 of the output.
  909.     % It's OK for these to be too large, but not too small.
  910.  
  911.   % Make dummy XRef entres for LPDict and PHS.
  912.   XRef LPDictN omap 0 put
  913.   XRef PHSN omap 0 put
  914.  
  915.   /HeaderLength {    % this is exact
  916.     writePart1            % part 1
  917.   } tolength def
  918.   /CatalogLength    % this is exact
  919.     CatalogTempEnd CatalogTempStart sub def    % part 4
  920.   /FirstPageLength    % this is exact
  921.     FirstPageTempEnd FirstPageTempStart sub def    % part 6
  922.   /OtherObjectsLength    % this is exact
  923.     NonPageTempEnd OtherPageTempStart sub def    % parts 7,8,9
  924.   /ObjectsLength    % this is exact
  925.     CatalogLength FirstPageLength add OtherObjectsLength add def
  926.   /XrefLength {            % part 11
  927.     % The LPDict must end within the first 1024 bytes,
  928.     % so the start of the FirstPage xref table can't exceed 1024.
  929.     writePart11xref 1024 writePart11rest
  930.   } tolength def
  931.   /NominalFileLength     % Make a generous allowance for parts 2,3,5.
  932.     HeaderLength ObjectsLength 3 mul add 10000 add 99999 max def
  933.   /FirstPageXrefLength {    % part 3
  934.     NominalFileLength writePart3
  935.   } tolength def
  936.   /LPDictLength {        % part 2
  937.     NominalFileLength dup dup 2 mul 1 index dup createLPDict writePart2
  938.   } tolength def
  939.  
  940.     % Compute a few additional values from the above.
  941.  
  942.   /XrefBeginLength {
  943.     (xref\n0 ) ows
  944.     OFile FirstPageXN write=
  945.   } tolength def
  946.   HeaderLength LPDictLength add
  947.   /FirstPageXrefStart 1 index def
  948.   FirstPageXrefLength add
  949.   /CatalogStart 1 index def
  950.   CatalogLength add        % phsstart
  951.   /PHSStart exch def
  952.  
  953.     % Adjust the object positions ignoring PHS.
  954.     % (Writing the PHS needs these.)
  955.  
  956.   0 0 CatalogStart CatalogTempStart sub adjustObjectPositions
  957.   % Make a temporary XRef entry for the PHS, for the benefit of omend.
  958.   XRef PHSN omap CatalogStart put
  959.   (Adjusted positions) now
  960.  
  961.     % Construct the hint tables (part 5).
  962.  
  963.   { writePageOffsetHints } totemp
  964.   pop /PHSTempStart exch def
  965.   { writeSharedObjectHints } totemp
  966.   exch PHSTempStart sub PHS /S 3 -1 roll put
  967.   PHSTempStart sub /PHSTempLength exch def
  968.   (Wrote hints) now
  969.  
  970.   % Prepare to read TFile.
  971.   TFile closefile
  972.   /TFile TFileName (r) file def
  973.  
  974.   PHS
  975.     dup /File TFile put
  976.     dup /FilePosition PHSTempStart put
  977.     dup /Length PHSTempLength put
  978.   pop
  979.   /PHSLength { writePart5 } tolength def
  980.  
  981.     % Construct the linearization parameter dictionary (part 2).
  982.  
  983.   PHSStart
  984.   dup PHSLength add        % phsend
  985.   /FirstPageStart 1 index def
  986.   dup FirstPageLength add    % firstpageend
  987.   dup OtherObjectsLength add
  988.   /XrefStart 1 index def
  989.   XrefBeginLength add        % xref0start
  990.   dup XrefBeginLength sub XrefLength add    % fileend
  991.   /FileLength 1 index def
  992.   createLPDict
  993.  
  994.     % Adjust the object positions again, taking the PHS into account.
  995.  
  996.   PHSStart 0 PHSLength adjustObjectPositions
  997.   (Readjusted positions) now
  998.  
  999.     % Finally, write the output file.
  1000.  
  1001.   writePart1
  1002.   writePart2
  1003.   FirstPageXrefStart padto
  1004.   XrefStart writePart3
  1005.   CatalogStart padto
  1006.   CatalogTempStart CatalogTempEnd copyrange    % part 4
  1007.   writePart5
  1008.   FirstPageStart padto
  1009.   FirstPageTempStart NonPageTempEnd copyrange    % parts 6,7,8,9
  1010.   % No Overflow Hint Stream (part 10).
  1011.   XrefStart padto
  1012.   writePart11xref
  1013.   { FirstPageXrefStart writePart11rest } tomemory
  1014.   FileLength 1 index length sub padto ows
  1015.   (Wrote output file) now
  1016.  
  1017.     % Wrap up.
  1018.  
  1019.   TFile closefile TFileName deletefile
  1020.   end        % temporary dict
  1021.   end        % IDict
  1022. } bind def
  1023.  
  1024. end            % pdfoptdict
  1025. .setglobal
  1026.  
  1027. % Check for command line arguments.
  1028. [ shellarguments {
  1029.   ] dup length 2 eq {
  1030.     % Load the pdfwrite utilities if necessary.
  1031.     /omapinit where { pop } { (pdfwrite.ps) runlibfile } ifelse
  1032.     save exch
  1033.     aload pop exch (r) file exch (w) file
  1034.     3000000 setvmthreshold
  1035.     pdfoptdict begin pdfOptimize end
  1036.     restore
  1037.   } {
  1038.     (Usage: gs -dNODISPLAY -- pdfopt.ps input.pdf output.pdf) = flush quit
  1039.   } ifelse
  1040. } {
  1041.   pop
  1042. } ifelse
  1043.